home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 July / Ahoy_Magazine_86-07_1986_Double_L.d64 / left overs 1 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  263b  |  12 lines
  1. 0 print"[147]":poke53280,4:poke53281,0:poke646,5
  2. 1 print"commodares problem #27-1:"
  3. 2 print"     left overs"
  4. 3 print"solution by..."
  5. 4 print"  robert g. bailey"
  6. 5 print"[158]one moment please...."
  7. 10 for n=1 to 1000000
  8. 15 for t=10 to 2 step -1
  9. 20 if n-(int(n/t)*t)<>t-1 goto 40
  10. 30 next t:print n;
  11. 40 next n
  12.